home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Internet
/
Collection of Internet.iso
/
infosrvr
/
dev
/
scott
/
WWW
/
NextStep
/
Implementation
/
TextToy.m
< prev
next >
Wrap
Text File
|
1993-02-01
|
2KB
|
107 lines
// Text Management Module TextToy.m
// ----------------------
// This file allows one to create links between Hypertexts. It selects the
// current HyperText and then passes the buck to the HyperText class.
#import "TextToy.h"
#import <appkit/appkit.h>
#import "HTAnchor.h"
#import "HyperText.h"
#import <objc/List.h>
#import "HTUtils.h"
@implementation TextToy
#define THIS_TEXT (HyperText *)[[[NXApp mainWindow] contentView] docView]
HTAnchor * Mark; /* A marked Anchor */
- setSearchWindow:anObject
{
SearchWindow = anObject;
return self;
}
/* Action Methods
** ==============
*/
/* Set up the start and end of a link
*/
- (HTChildAnchor*) linkToMark:sender
{
return [THIS_TEXT linkSelTo:Mark];
}
- linkToNew:sender
{
return nil;
}
- unlink:sender;
{
return [THIS_TEXT unlinkSelection];
}
- (HTChildAnchor*)markSelected:sender
{
Mark = (HTAnchor*) [THIS_TEXT referenceSelected];
return (HTChildAnchor*)Mark;
}
- (HTParentAnchor*) markAll:sender
{
Mark = (HTAnchor*) [THIS_TEXT referenceAll];
return (HTParentAnchor*) Mark;
}
- (HTChildAnchor*)followLink:sender
{
return [THIS_TEXT followLink]; // never mind whether there is a link
}
- dump : sender
{
return [THIS_TEXT dump:sender];
}
// Window Delegate Functions
// -------------------------
- windowDidBecomeKey:window
{
return self;
}
// When a document is selected, turn the index search on or off as
// appropriate
- windowDidBecomeMain:window
{
HyperText * HT = [[window contentView] docView];
if (!HT) return self;
if ([HT isIndex]) {
[SearchWindow makeKeyAndOrderFront:self];
} else {
[SearchWindow orderOut:self];
}
return self;
}
// Access Management functions
// ===========================
- registerAccess:(HyperAccess *)access
{
if (!accesses) accesses=[List new];
return [accesses addObject:access];
}
@end